﻿<Serializable()> Public Class KOZandra
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefüllstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefüllstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "ZANDRA"
        Armee = Armeen.BD.ToString
        Musik = "Zandra"
        Bild = GetBildID()
        Select Case My.Settings.CommanderWarsGameMoodus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                KORange = 3
            Case CommanderWarsGameModi.CommanderWars2
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
                KORange = 3
            Case Else
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.KOS(Bild).KOBeschreibung.Gaben
        End Select
        KOname = Objektverwalter.KOS(Bild).KOBeschreibung.Name
        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        WetterartfürSenker(0) = ObjektSpielfeld.Wetterarten.Sandsturm
        ReDim WetterReichweitenbonus(0)
        WetterReichweitenbonus(0) = 1
        Bewegunssenker = New ObjektSpielfeld.Wetterarten() {ObjektSpielfeld.Wetterarten.Sandsturm}
        Bewegungswetter = New Bewegungsarten() {Bewegungsarten.Sonne}
        Wetter = ObjektSpielfeld.Wetterarten.Sandsturm
        Wetterbouns = 20
        LandschaftsVertauschung = New String(,) {{"WÜSTE", "EBENE"}, {"WÜSTE+SCHROTT", "EBENE+SCHROTT"}, {"KAKTEEN", "WALD"}, {"FELSEN", "BERG"}, {"AUSGETROCKNETESFLUSSBETT", "FLUSS"}}
        Wetterimmunität = New ObjektSpielfeld.Wetterarten() {ObjektSpielfeld.Wetterarten.Sandsturm}
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        Dim M As ObjektSpielMenü = Objektverwalter.Menü
        WetterReichweitenbonus(0) = 2
        If OhneFunktion = False Then
            Dim WZeit As Integer = 2
            AnimationFeindliche("DRAKEGABE", WZeit)
            BackbufferSpiel.AddAnimation("SCREENFLASH", WZeit, New Point, True, ObjektSpielfeld.TopLayer)
            WetterÄndern(ObjektSpielfeld.Wetterarten.Sandsturm, 1)
            AlleFeindeBeschädigen(1)
        End If
        GabeEingesetzt()
    End Sub

    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If My.Settings.CommanderWarsGameMoodus = CommanderWarsGameModi.AdvanceWars Then
            Dim M As ObjektSpielMenü = Objektverwalter.Menü
            WetterReichweitenbonus(0) = 2
            If OhneFunktion = False Then
                Dim WZeit As Integer = 2
                AnimationFeindliche("DRAKEGABE", WZeit)
                BackbufferSpiel.AddAnimation("SCREENFLASH", WZeit, New Point, True, ObjektSpielfeld.TopLayer)
                WetterÄndern(ObjektSpielfeld.Wetterarten.Sandsturm, 1)
                AlleFeindeBeschädigen(1)
            End If
            GabeEingesetzt()
        ElseIf My.Settings.CommanderWarsGameMoodus = CommanderWarsGameModi.AdvanceWarsDC Then
            Dim M As ObjektSpielMenü = Objektverwalter.Menü
            Wetterbouns = 40
            WetterReichweitenbonus(0) = 3
            If OhneFunktion = False Then
                Dim WZeit As Integer = 2
                AnimationFeindliche("SPEZIALGABE", WZeit)
                BackbufferSpiel.AddAnimation("SCREENFLASH", WZeit, New Point, True, ObjektSpielfeld.TopLayer)
                WetterÄndern(ObjektSpielfeld.Wetterarten.Sandsturm, 2)
                AlleFeindeBeschädigen(1)
            End If
            GabeEingesetzt()
        Else
            Dim M As ObjektSpielMenü = Objektverwalter.Menü
            Wetterbouns = 50
            WetterReichweitenbonus(0) = 3
            If OhneFunktion = False Then
                Dim WZeit As Integer = 2
                AnimationFeindliche("SPEZIALGABE", WZeit)
                BackbufferSpiel.AddAnimation("SCREENFLASH", WZeit, New Point, True, ObjektSpielfeld.TopLayer)
                WetterÄndern(ObjektSpielfeld.Wetterarten.Sandsturm, 2)
                AlleFeindeBeschädigen(2)
            End If
            GabeEingesetzt()
        End If
    End Sub

    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class

<Serializable()> Public Class KOBeschreibungZandra
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Zandra"
        Fein = "Wüste"
        Nein = "Dschungel"
        Beschreibung = New String() {"Besser bekannt als,", "Wüstenfuchs. Sie lebt", "in und für die Wüste.", "Sie ist Herrscherin", "von Brown Desert"}
        Stil = New String() {"Sandstürme erhöhen ihre", "Reichweite und ihre", "Truppen kämpfen dort", "besser."}
        Gabebeschreibung = New String() {"Ein Sandsturm bricht ein.", "Die Reichweite ihrer Truppen", "steigt Gegner erleiden", "1 TP Schaden."}
        SpezialgabeBeschreibung = New String() {"Ein Sandsturm bricht ein.", "Die Reichweite ihrer Truppen.", "Sie kämpfen besser und", "Gegner erleiden 2 TP", "Schaden."}
        GabeKosten = 4
        Spezialgabekosten = 4
        Gaben = New String() {"Wanderdüne", "Sandsturm"}
        Synergie = New Decimal() {2}
        KONamen = New String() {"TEMPEST"}
        Doppelgabenamen = New String() {"Wetterchaos"}
        Gabesätze = New String() {"Maschine haben keine Chance in der Wüste." _
                                    , "Zielen will gelernt sein." _
                                    , "Ihr habt da was im Getriebe." _
                                    , "Ihr habt euch in der Wüste verlaufen." _
                                    , "Ihr solltet eine Oase suchen." _
                                    , "Wer in die Wüste geht sollte immer genug Wasser dabei haben."}
        Siegsätze = New String() {"Sand ihr saht nur noch Sand." _
                                , "Wer nicht treffen kann!" _
                                , "Man nennt mich Wüstenfuchs. Jetzt wisst ihr warum!"}
        Tauschsätze = New String() {"Wie es gibt Sand?" _
                                    , "Fürchtet die Wüsten!"}
        Doppelgabesätze = New DoppelGabesatz() {New DoppelGabesatz("TEMPEST", "ZANDRA", "Mich hält kein Wetter auf.", "Deshalb seht der Wüste ins Gesicht.") _
                                              , New DoppelGabesatz("ZANDRA", "TEMPEST", "Dieses Wetter...", "könnt ihr sehen, was da kommt?")}
    End Sub
End Class
